(read1): Allow `\C- ' and `\C-?'.

diff --git a/src/lread.c b/src/lread.c
index 105e9c5efe0b77c04654aa74eb48911aa76cc450..545256904d6a55d7518128784a96cff855c84dc9 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1217,6 +1217,12 @@ read1 (readcharfun)
              }
            else
              {
+               /* Allow `\C- ' and `\C-?'.  */
+               if (c == (CHAR_CTL | ' '))
+                 c = 0;
+               else if (c == (CHAR_CTL | '?'))
+                 c = 127;
+
                if (c & CHAR_META)
                  /* Move the meta bit to the right place for a string.  */
                  c = (c & ~CHAR_META) | 0x80;